home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 15 / Mac Magazin and MacEasy Magazine CD - Issue 15.iso / Grafik & Text / Text / Easy Writer 3.0 / Easy Writer / Easy Writer.rsrc / LENS_129_Control < prev    next >
Text File  |  1995-09-23  |  5KB  |  102 lines
  1. ItemType: WIND
  2. Rect: 116,139,523,244
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. HasCloseBox: FALSE
  7. HasGrowBox: FALSE
  8. MinSize: 100,50
  9. MaxSize: 865,597
  10. Name: Control
  11. WhiteColor: -1,-13108,-13108
  12. BlackColor: 0,0,13107
  13. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬if objValue="Open" then¬  global media ¬  if media = "Blackboard" then¬    put "i3_Name:PrimPap" & Return after x¬  else¬    put "i3_Name:Chlkbrd" & Return after x¬  end if¬  ¬  global theTool¬  if theTool = "browse" then¬    put "i2_Name:Pointer" & Return after x¬  else¬    put "i2_Name:Writer" & Return after x¬  end if¬  ¬  global lang¬  put lang & "_Hilite:True" & Return after x¬  ¬  global snd¬  if snd is true then ¬    put "i12_Name:Habla"& Return after x¬  else¬    put "i12_Name:Calla"& Return after x¬  end if¬  ¬  put the short name of this card into tc¬  get i11_Text of window wdName¬  repeat with kk = 1 to (the number of lines of it)¬    if line kk of it = tc then¬      put kk into jj¬      exit repeat¬    end if¬  end repeat¬  if jj <> empty then¬    put "i11_Selection:"&jj & Return after x¬  end if¬  ¬  set the properties of window wdName to x¬  ¬else if objValue="Close" then ¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬¬¬
  14. Params: i11_Text¬i11_Selection
  15.  
  16. ItemType: PICT
  17. Rect: 3,2,206,96
  18. Name: Teclado
  19. Grid: 6,5
  20. Logic: Push
  21. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬put false into SD¬if the shiftKey is down then put true into SD¬get i1_selection of window wdName¬if it < 27 then¬  if SD then¬    letter (numtoChar(64+it))¬  else¬    letter (numtoChar(96+it))¬  end if¬else if it < 29 then¬  letter " "¬else¬  doAWord¬end if¬--end mouseUp
  22.  
  23. ItemType: ICON
  24. Rect: 211,2,243,34
  25. Name: Pointer
  26. Logic: Push
  27. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get i2_Name of window wdName¬if it is "Pointer" then¬  set i2_Name of window wdName to "Writer"¬else¬  set i2_Name of window wdName to "Pointer"¬end if¬toggleTool¬--end mouseUp
  28.  
  29. ItemType: ICON
  30. Rect: 244,2,276,34
  31. Name: PrimPap
  32. Logic: Push
  33. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get i3_Name of window wdName¬if it is "PrimPap" then¬  set i3_Name of window wdName to "Chlkbrd"¬else¬  set i3_Name of window wdName to "PrimPap"¬end if¬toggleMedia¬--end mouseUp
  34.  
  35. ItemType: ICON
  36. Rect: 277,2,309,34
  37. Name: Bomb
  38. Logic: Push
  39. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬BlowItAway¬--end mouseUp
  40.  
  41. ItemType: ICON
  42. Rect: 210,70,242,102
  43. Name: Quit
  44. Logic: Push
  45. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬cQuit¬--end mouseUp
  46.  
  47. ItemType: ICON
  48. Rect: 211,36,243,68
  49. Name: Question
  50. Logic: Push
  51. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬doMyHelp¬--end mouseUp
  52.  
  53. ItemType: ICON
  54. Rect: 244,70,276,102
  55. Name: menu
  56. Logic: Push
  57. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬toggleMenu¬--end mouseUp
  58.  
  59. ItemType: ICON
  60. Rect: 244,36,276,68
  61. Name: Prntr
  62. Logic: Push
  63. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬PrintIt¬--end mouseUp
  64.  
  65. ItemType: ICON
  66. Rect: 277,70,309,102
  67. Name: AlphaEdit
  68. Logic: Push
  69. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬cAEdit¬--end mouseUp
  70.  
  71. ItemType: LBL
  72. Rect: 315,4,377,20
  73. BlackColor: 0,0,13107
  74. Text: Alphabet
  75.  
  76. ItemType: POP
  77. Rect: 315,24,334,41
  78. Name: alpha
  79. BlackColor: 0,0,13107
  80. WhiteColor: -1,-13108,-13108
  81. TitleItem: 10
  82. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get i11_selection of window wdName¬put it into ddd¬get i11_Text of window wdName¬put line ddd of it into thecd¬if not (there is a cd thecd) then¬  answer ("No such alphabet")¬else¬  go cd thecd¬end if¬¬--end mouseUp
  83.  
  84. ItemType: ICON
  85. Rect: 277,36,309,68
  86. Name: Habla
  87. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬get i12_Name of window wdName¬global snd¬if it is "Habla" then¬  set i12_Name of window wdName to "Calla"¬  put false into snd¬else¬  set i12_Name of window wdName to "Habla"¬  put true into snd¬end if¬--end mouseUp
  88.  
  89. ItemType: RAD
  90. Rect: 313,47,383,63
  91. BlackColor: 0,0,13107
  92. WhiteColor: -1,-13108,-1
  93. Name: English
  94. Hilite: TRUE
  95. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global lang,langstack¬if langstack is in the stacksInUse then stop using stack langstack¬put "Letters" into langstack¬put "English" into lang¬start using stack langstack¬--end mouseUp
  96.  
  97. ItemType: RAD
  98. Rect: 313,64,387,80
  99. BlackColor: 0,0,13107
  100. WhiteColor: -1,-13108,-13108
  101. Name: Spanish
  102. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global lang,langstack¬if langstack is in the stacksInUse then stop using stack langstack¬put "Abecedario" into langstack¬put "Spanish" into lang¬start using stack langstack¬--end mouseUp